home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / caplock.bas < prev    next >
Encoding:
BASIC Source File  |  1986-08-14  |  1.1 KB  |  13 lines
  1. 10 CLS: ROW%=2:COLUMN%=1
  2. 20 PRINT"This is a test"
  3. 30 A$=INKEY$: GOSUB 50500:IF A$="" THEN 30
  4. 40 PRINT A$;:COLUMN%=COLUMN%+1:IF COLUMN%>79 THEN COLUMN%=1:ROW%=ROW%+1:GOTO 30 ELSE GOTO 30
  5. 50499 '*************************CAPS LOCK & NUM LOCK***************************
  6. 50500 DEF SEG=&H40:K%=PEEK(&H17) AND 96:DEF SEG:IF K1%=K% THEN RETURN ELSE C%=POS(X):LOCATE 25,73,0:'      Check to see for change in status if none return
  7. 50510 IF K%=96 THEN COLOR 0,7:PRINT"CAP";:COLOR 7,0:PRINT" ";:COLOR 0,7:PRINT"NUM";:GOTO 50550:'           Both Cap Lock & Num Lock are on
  8. 50520 IF K%=32 THEN COLOR 7,0:PRINT"    ";:COLOR 0,7:PRINT"NUM";:GOTO 50550:'                              Only Num Lock is on
  9. 50530 IF K%=64 THEN COLOR 0,7:PRINT"CAP";:COLOR 7,0:PRINT"    ";:COLOR 0,7:GOTO 50550:'                    Only Cap Lock is on
  10. 50540 COLOR 7,0:PRINT SPC(7);:COLOR 0,7:'                                                                  Both Cap Lock & Num Lock are off
  11. 50550 LOCATE ROW%,C%,1:K1%=K%:COLOR 7,0:RETURN
  12. 50559 '************************************************************************
  13.